1 REM TURTLE-DEMO: 'DRACHEN'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 !INIT
30 INPUT"WERT L   12[157][157][157][157]";L:IFL>12THEN30
40 !GRAPHICS:!PEN0:!WALK32:!TURNL90:!WALK80:!PEN1
50 GOSUB100
60 POKE198,.:WAIT198,1:POKE198,.:!TEXT:END
100 IFL=0THEN:!WALK3:GOTO300
120 IFL<0THEN240
140 !PUSHL:L= L-1:GOSUB100:!PULLL:!TURNL90:!PUSHL:L=1-L:GOSUB100:!PULLL
190 GOTO300
240 !PUSHL:L=-1-L:GOSUB100:!PULLL:!TURNR90:!PUSHL:L=1+L:GOSUB100:!PULLL
300 RETURN